home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
byt85jan.lbr
/
TUNE.BQS
/
TUNE.BAS
Wrap
BASIC Source File
|
1985-09-15
|
2KB
|
59 lines
10 ' AUDIO FREQUENCY ANALYZER [TUNE]
20 ' ----------------------------------
30 '
40 CLS:OUT 1923,137:DIM FL(14),CC(14),SL(14),FCL(14)
50 OUT 1921,128:OUT 1921,0:OUT 1920,255
60 '
70 ' Read the calibration data from the DATA statements.
80 '
90 FOR I= 0 TO 14
100 READ FL(I),CC(I),SL(I),FCL(I)
110 NEXT:KEY OFF
120 LOCATE 12,20:INPUT "FREQUENCY = ";F
130 IF (F<30000) AND (F>8) THEN GOTO 170
140 LOCATE 2,25 :PRINT"BAD FREQUENCY"
150 LOCATE 12,30:PRINT" "
160 GOTO 120
170 LOCATE 2,25 :PRINT" "
180 '
190 ' Convert the frequency [hertz] to cap code and fine freq code.
200 '
210 I=1
220 IF F>FL(I) THEN I=I+1:GOTO 220
230 I=I-1
240 DF=INT(.5+(F-FL(I))*SL(I)+FCL(I))
250 IF DF<0 THEN OUT 1921,0:OUT 1920,255:GOTO 120
260 '
270 ' Output the codes to the VCO.
280 '
290 OUT 1920,DF :OUT 1921,CC(I):II=0
300 '
310 ' Average the data over eight iterations.
320 '
330 FOR J=1 TO 8
340 II=II+INP(1922)
350 NEXT
360 II=255-II/8
370 LOCATE 16,20 : PRINT "ADC VALUE =";INT(II)
380 A$=INKEY$:IF A$<>"" THEN GOTO 120
390 GOTO 290
400 DATA 8,31,9.1667 , 0
410 DATA 21,30,6.7857 , 70
420 DATA 36,19,2.5294 , 31
430 DATA 71, 7,2.1111 , 90
440 DATA 126,22,0.6081 , 15
450 DATA 201,22,0.5960 , 61
460 DATA 301,16,0.4699 , 78
470 DATA 553, 6,0.1521 , 23
480 DATA 1005, 2,0.1184 , 58
490 DATA 2009, 4,0.04332, 26
500 DATA 4001, 4,0.04814,112
510 DATA 6670, 0,0.01490, 0
520 DATA 7785, 0,0.01001, 16
530 DATA 14280, 0,0.01004, 81
540 DATA 30000, 0,0.00000, 0
2
510 DATA 6670, 0,0.01490, 0
520 DATA 7785, 0,0.01001, 16
530 DATA 14280, 0,0.01004, 81
540 D